home *** CD-ROM | disk | FTP | other *** search
/ EnigmA Amiga Run 1996 February / EnigmA AMIGA RUN 04 (1996)(G.R. Edizioni)(IT)[!][issue 1996-02][Skylink CD III].iso / earcd / comm2 / ums116bt.lha / UMS / Bin / umscopy < prev    next >
AmigaDOS Script File  |  1995-07-09  |  513b  |  29 lines
  1. .key file/A,msgid/A,umsname/A,resultvar/A
  2. .bra {
  3. .ket }
  4.  
  5. failat 10
  6. set destdir `getenv umsfiles.{umsname}`
  7.  
  8. if not `echo len 1 $destdir` eq :
  9.   if not `echo len 1 $destdir` eq /
  10.     set destdir $destdir/
  11.   endif
  12. endif
  13. set newfile `list quick lformat "$destdir%n" {file}`
  14.  
  15. if exists $newfile
  16.   set i 1
  17.   lab loop
  18.   if exists $newfile.$i
  19.     set i `eval $i + 1`
  20.     skip loop back
  21.   endif
  22.   set newfile $newfile.$i
  23. endif
  24.  
  25. echo "copying {file} to $newfile .."
  26. copy {file} $newfile clone
  27.  
  28. setenv {resultvar} $newfile
  29.